;;;Changes Z coordinate to new value.  Uses Move trick to zero out Z value first.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  9-3-2002
;;;	   Edited:  9-3-2002
(defun c:movez ( / azsnewz axsset)
  (setq azsnewz (ureal 1 "" "New \"Z\" value? " azsnewz))
  (setq aznewzstr (rtos azsnewz 2 16))
  (setq azsset (ssget))
  (command ".move" azsset "" "0,0,10e99" "" )
  (command ".move" azsset "" "0,0,-10e99" "" )
  (command ".move" azsset "" (strcat "0,0," aznewzstr) "" )
)